www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_del_class.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->






<%
AJAXshowLoader()


%>



	<%
biao=trim(request("biao"))
biao2="[ND_Article]"
sys_content_type=trim(request("sys_content_type"))




if qx_if_max=0 then


response.redirect "../D_suodinguser.asp"
end if








%>

<%
err1=0
set rs44=server.CreateObject("adodb.recordset")
rs44.open "select * from "&biao&" where parent_id_list like '%,"&request("id")&",%' or parent_id='"&request("id")&"'",conn,1,1
if not rs44.eof then




err1=1
%>
<script language="javascript">
alert("该分类下有子分类，请先删除子分类");
history.go(-1);

</script>



<%




end if
%>


<% if err1=0 then


conn.execute("delete from "&biao&" where id="&request("id"))




%>

<script language="javascript">
alert("删除成功");
self.location="D_admin_models_classbiao.asp?biao=<%=biao%>";

</script>

<%




end if
%>



<%

AJAXcloseLoader()
%>